<!-- #include file="../DAL/BD.asp" -->
<!-- #include file="../BLL/DV.asp" -->

<%

'tomo los valores enviados por post
Usuario=request.Form("Usuario")
Contra=ContrasenaCodifica(Request.Form("Contra"))	
Nombre=Request.Form("Nombre")
Apellido=Request.Form("Apellido")
Sexo=Request.Form("Sexo")				
Direccion=Request.Form("Direccion")
Localidad=Request.Form("Localidad")
Provincia=Request.Form("Provincia")
Telefono=Request.Form("Telefono")
Mail=Request.Form("Mail")		
FechaNac=Request.Form("FechaNac")	
Dni=Request.Form("DNI")
Perfil=Request.Form("Perfil")
Estado=Request.Form("Estado")
id = Request.Form("id_Usuario")
Session.Contents.Remove("Error")

'checkeo el estado
if Estado = 1 then
Estado=1
else
Estado=0
end if

	'Calculo el digito verificador Horizontal
	DVH=calcularDVH(id & Perfil & Usuario & Contra & Nombre & Apellido & Sexo & Direccion & Estado & Localidad & Provincia & Telefono & Mail & FechaNac & Dni)

	'conecto a la bdd
	set conexion=Conectar()
	
	'ejecuto el insert
	EjecutarConsulta "UPDATE USUARIOS set id_Perfil ='" & Perfil & "',Usuario='" & Usuario & "',Contrasena='" & Contra & "',Nombre='" & Nombre & "',Apellido='" & Apellido & "',Sexo='" & Sexo & "',Direccion='" & Direccion & "',Habilitado='" & Estado & "',Localidad='" & Localidad & "',Provincia='" & Provincia & "',Telefono=" & Telefono & ",Mail='" & Mail & "',FechaNac='" & FechaNac & "',DNI=" & Dni & ",DVH= " & DVH & " where id_Usuario='" & id & "'", conexion
		
		
	'Calculo y guardo el DVV
	calcularDVV("USUARIOS")
			
	'Registro el movimiento en la bitacora
	id_bit=obtener_ultimo_id("BITACORA","id_Bitacora") + 1
	dvh=calcularDVH(id_bit & "Modificacion de Usuario: " & Usuario & "1" & formatdatetime(now(),vbgeneraldate) & session("id_Usuario"))					
	AgregarMovimiento "Modificacion de Usuario: " & Usuario,"1",session("id_Usuario"),dvh
	calcularDVV("BITACORA")		
	
	'desconectar a la bdd
	Desconectar(conexion)
	

	response.Redirect("usuarios_detalle.asp?id_Usuario=" & id)


%>